home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Util / L / LaserWriter Pro EnergySW.sit / LaserWriter Pro EnergySW / LaserWriter Utility.rsrc / STR#_129.txt < prev    next >
Encoding:
Text File  |  1993-04-19  |  3.7 KB  |  79 lines
  1. /str 100 string def FontDirectory {pop str cvs == flush} forall 
  2.  
  3. (fonts/*) {(/) search pop pop pop ==} 200 string filenameforall 
  4.  
  5. (%disk%fonts/*) {(/) search pop pop pop ==} 200 string filenameforall 
  6.  
  7. (%disk*%fonts/*) {(/) search pop pop pop ==} 200 string filenameforall 
  8.  
  9. (%cartridge*%fonts/*) {(/) search pop pop pop ==} 200 string filenameforall 
  10.  
  11. $error /newerror false put serverdict begin 0 exitserver statusdict begin 0 1 initializedisk 20 setuserdiskpercent end
  12.  
  13. $error /newerror false put 0 serverdict begin exitserver 
  14.  
  15. (temp/font) (w) file /dskfile exch def /str 4096 string def {currentfile str readstring exch dskfile exch writestring {} {dskfile closefile exit} ifelse} loop
  16.  
  17. vmstatus exch sub = pop flush 
  18.  
  19. statusdict /waittimeout 0 put 
  20.  
  21. (w) file /out exch def (r) file /in exch def {/svm save def /in load 16384 string readstring exch /out load exch writestring not svm restore {/in load closefile /out load closefile exit} if} loop 
  22.  
  23. (r) file /in exch def /out (%stdout) (w) file def statusdict /waittimeout 0 put {/svm save def /in load 16384 string readstring exch /out load exch writestring not svm restore {/in load closefile exit} if} loop 
  24.  
  25. (w) file /out exch def /in (%stdin) (r) file def {/svm save def /in load 16384 string readstring exch /out load exch writestring not svm restore { /out load closefile exit} if} loop 
  26.  
  27. statusdict begin (notSpooler) = statusdict /cartstatus known {(%cartridge1%) cartstatus {(hasCartridge) = pop pop pop} if} if statusdict /diskstatus known {diskstatus 0 gt {(hasInitDisk) =} if pop statusdict /diskonline known {diskonline
  28.  
  29. {(hasDisk) =} if} {(mayHaveDisk) =} ifelse systemdict /devformat known {(distinguishesDisks) = /disksPresent 0 def {(disk) search {pop pop 0 get 48 sub 2 exch exp cvi disksPresent add /disksPresent exch def} if} 100 string devforall disksPresent 
  30.  
  31. =} if systemdict /devformat known systemdict /cshow known and {(hasCompFonts) = compFontFileCheck {mark exch {} 255 string filenameforall counttomark 0 gt {(disk) search {pop pop 0 get 48 sub 1 bitshift 1 or 15 and =} {0 =} ifelse} {0 =} ifelse 
  32.  
  33. cleartomark} forall} if} if end 
  34.  
  35. userdict /TrueDict known {(scalerPresent) =} if userdict /sysStartPatched known { userdict /sysStartPatched get {(sysStartPatched) =} 
  36.  
  37. if} if userdict /TrueDict known { TrueDict /version known {(scalerVersion:) print TrueDict /version get = } if } if
  38.  
  39. currentpagedevice /PostRenderingEnhance known ==
  40.  
  41. currentpagedevice/PreRenderingEnhanceDetails 2 copy known{get/S1 known gsave 
  42.  
  43. currentpagedevice/HWResolution known { <</HWResolution [ 300 300 ] >> setpagedevice} if <</PreRenderingEnhance true>>setpagedevice currentpagedevice/PreRenderingEnhanceDetails get/ActualPreRenderingEnhance get grestore and}{pop pop false} ifelse == 
  44.  
  45. currentpagedevice /PostRenderingEnhance known ==
  46.  
  47. serverdict/printtestpage known ==
  48.  
  49.  (w) file /dskfile exch def /str 4096 string def {currentfile str readstring exch dskfile exch writestring {} {dskfile closefile exit} ifelse} loop 
  50.  
  51. (usr/truetypeinstall) dup status { pop pop pop pop 
  52. run userdict /sysStartPatched true put} if (Sys/OldStart) 
  53. dup status { pop pop pop pop run } if 
  54.  
  55.  
  56. (Sys/OldStart) status {pop pop pop pop (Sys/OldStart) deletefile} if (Sys/Start) status {pop pop pop pop (Sys/Start) (Sys/OldStart) renamefile} if (temp/start) (Sys/Start) renamefile 
  57.  
  58. userdict /sysStartPatched true put
  59.  
  60. (dummyjob) = 
  61.  
  62.  
  63. systemdict/languagelevel 2 copy known{get 2 eq}{pop pop false}ifelse ==
  64.  
  65. /SamplePages/ProcSet 2 copy resourcestatus{ pop pop findresource/TestPage known }{ pop pop false }ifelse ==
  66.  
  67. statusdict begin /product load == /revision load = end
  68.  
  69. (%EtherTalk_Pending%) currentdevparams dup/EthernetAddress known{/EthernetAddress get}{/EtherNetAddress get}ifelse == pstack 
  70.  
  71. %%[ exitserver: permanent
  72.  
  73. %%[ PrinterError: 
  74.  
  75. %%[ Error: 
  76.  
  77. %%[ 
  78.  
  79.